home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / STATION5 / LIBRARIA / DMLDEMO.INF < prev    next >
INI File  |  1993-09-13  |  7KB  |  257 lines
  1. ;; This script installs DM/Librarian
  2.  
  3. DefineVariables
  4.   Logical   [InstallBoundVersion] := YesCharacter
  5.   Logical   [BrowseReadMe] := NoCharacter
  6.   Logical   [Installed] := NoCharacter
  7.   Logical   [InstallBoundXVersion] := NoCharacter
  8.   Directory [instn1] := C:\DML
  9.   Directory [mspath] := C:\USTATION
  10.   Logical   [config] := YesCharacter
  11.   Logical   [database] := NoCharacter
  12.   Logical   [help] := YesCharacter
  13.   Logical   [tmp] 
  14. EndDefineVariables
  15.  
  16. Do SetupINSTALIT
  17. Do Banner
  18.  
  19. [point1]
  20. DetermineInstallationDrive QueSize RequireFixed ConfirmRAM
  21. DetermineInstallationDirectory QueSize RequireFixed ConfirmRAM
  22.  
  23. ;;Dialog Multiple WhiteOnBlue synchronizeInputs  UseHeader "Product Directory"
  24. ;;  "Please Enter product directory here                                "
  25.   
  26. ;;  "Directory for DM/Librarian files :                              "
  27. ;;  InputVariable [instn1] 20 @xy(36,3) YellowOnCyan UpperCase
  28.   ;;WriteText "DM/Librarian DIRECTORY :" LightGreenOnBlue @xy(2,3) 
  29. ;;EndDialog  
  30.  
  31. ;;SetAllowEscape On
  32. ;;SetBottomLineTo "Press Esc to go back"
  33. ;;Dialog Multiple WhiteOnBlue 
  34. ;; "DM/Librarian Directory:   "[instn1]
  35.  
  36. ;; PushButton " OK " @xy(center, 7) blackoncyan shadow
  37.  ;;WriteText "DM/Librarian DIRECTORY:" @xy(left, 1) blackonwhite
  38. ;;EndDialog
  39. ;;if escaped 
  40. ;;    SetAllowEscape Off
  41. ;;    Do SetColors
  42. ;;    goto [point1]
  43. ;;endif
  44. ;;SetAllowEscape Off
  45. Do SetColors
  46.  
  47. :Main
  48.  
  49. Dialog Multiple WhiteOnCyan synchronizeInputs  UseHeader "DM/Librarian Demo Configuration"
  50.   "        "
  51.   
  52.   "Run DM/Librarian Demo Configuration Program ?          "
  53.   InputVariable [config] 50 @xy(48,3) YellowOnCyan UpperCase
  54. EndDialog  
  55.  
  56. Dialog Multiple WhiteOnCyan synchronizeInputs  UseHeader "MicroStation Directory"
  57.   ".CPlease input the directory where MicroStation is installed      "
  58.   
  59.   "Enter path name where MicroStation is installed                 "
  60.   InputVariable [mspath] 50 @xy(3,4) YellowOnCyan UpperCase
  61.   "                                                        "
  62. EndDialog  
  63.  
  64. SetAllowEscape On
  65. [point2]
  66. If .NOT. DirectoryExists [mspath]
  67.        SetBottomLineTo "Press Esc to Exit"
  68.        Dialog Multiple WhiteOnCyan synchronizeInputs  UseHeader "MicroStation Directory"
  69.        "Directory [mspath] does not exist"
  70.        "Please input the directory where MicroStation is installed      "
  71.   
  72.        "Enter path name where MicroStation is installed                 "
  73.        InputVariable [mspath] 50 @xy(3,5) YellowOnCyan UpperCase
  74.        "                                                                "
  75.        EndDialog  
  76.        
  77.        If escaped
  78.          Dialog [tmp] WhiteOnRed UseHeader "Exit DM/Librarian Demo Installation" 
  79.          ".LDM/Librarian Demo Installation is not complete. "
  80.          ".LExit anyway ?"
  81.          EndDialog
  82.        
  83.        If [tmp] = YesCharacter
  84.          SetCompletionStatusTo Unfinished
  85.          SoLong
  86.        else
  87.          GoTo [point2]
  88.        EndIf
  89.       EndIf
  90.       GoTo [point2]
  91. EndIf
  92.  
  93. SetAllowEscape Off
  94. Do SetColors
  95.  
  96. ;;Dialog Multiple WhiteOnCyan synchronizeInputs  UseHeader "DM/Librarian Server"
  97. ;;  ".LThere must be at least one DM/Librarian Server node in the network" 
  98. ;;  ".Land all users must have access to a DM/Librarian Server node."
  99.   
  100. ;;  ".CPlease input Yes if this node is the DM/Librarian Server."
  101.   
  102. ;;  "Is this node the database server ?"
  103. ;;  InputVariable [database] 40 @xy(36,6) YellowOnCyan UpperCase
  104. ;;  ;;WriteText "Database" LightGreenOnBlue @xy(2,3) 
  105. ;;EndDialog  
  106.  
  107. Dialog Multiple WhiteOnCyan synchronizeInputs  UseHeader "DM/Librarian Help"
  108.   ".LHelp requires additional disk space." 
  109.   ".LPlease input Yes if you want help to be installed."
  110.   
  111.   "Do you want to install help ?         "  
  112.   InputVariable [help] 40 @xy(32,4) YellowOnCyan UpperCase
  113.   ;;WriteText "Help" LightGreenOnBlue @xy(2,3) 
  114. EndDialog  
  115. Do Install
  116. ChangeDirectoryTo [InstallationDirectory]
  117. Do Cleanup
  118. SoLong
  119. Procedure Install
  120.   
  121.   QueAllFiles 
  122.  
  123. ;;  If [database] = NoCharacter
  124. ;;    UnqueFiles
  125. ;;      *.mdx
  126. ;;      *.dbf
  127. ;;    EndUnQueFiles
  128. ;;  EndIf
  129.   
  130.   If FileExists [InstallationDirectory]\meta\*.mdx 
  131.     UnqueFiles
  132.       *.mdx
  133.     EndUnQueFiles
  134.   EndIf
  135.   
  136.   If FileExists [InstallationDirectory]\meta\*.dbf
  137.     UnqueFiles
  138.       *.dbf
  139.     EndUnQueFiles
  140.   EndIf
  141.  
  142.   If [help] = NoCharacter
  143.     UnqueFiles
  144.       dmlhelp.rsc
  145.     EndUnQueFiles
  146.   EndIf
  147.   ;;[AdditionalSpaceRequired] := 133117
  148.   ;;[InstallationDirectory] := [instn1]
  149.   ;;DetermineInstallationDrive QueSize RequireFixed
  150.   ;;DetermineInstallationDirectory QueSize RequireFixed
  151.   
  152.   OpenCopyWindow
  153.   CopyFiles
  154.     *.INF
  155.   EndCopyFiles
  156.   CloseCopyWindow
  157.   GetQuedFiles
  158.   ChangeDirectoryTo [InstallationDirectory]
  159.   DeleteFiles Quietly
  160.      readme.doc
  161.   EndDeleteFiles
  162.   RenameFile [InstallationDirectory]\demo.doc to readme.doc
  163.   ClearScreen
  164.    TextBox
  165.     .cSetting up your default configuration
  166.     .cfor DM/Librarian Demo.  One moment, please.
  167.    EndTextBox
  168.   
  169.   Delay 1000
  170.   
  171.   RUN [InstallationDirectory]\dmlcfg.exe [InstallationDirectory] [mspath] SwapOut Quietly
  172.   [Installed] := YesCharacter
  173.   ;;ChangeDirectoryTo [InstallationDirectory]
  174.   ;;ChangeDriveTo [InstallationDrive]
  175.  
  176.   ClearScreen
  177. EndProcedure
  178.  
  179. Procedure ByeBye
  180.   
  181.   Dialog WhiteOnBrown
  182.     Thanks again and best wishes.  You'll find new information in files
  183.     README.DOC.
  184.   EndDialog
  185.   If [Installed] = YesCharacter
  186.     Dialog [BrowseReadme]
  187.       Would you like to browse README.DOC now?
  188.     EndDialog
  189.     If [BrowseReadme] = YesCharacter
  190.       BrowseFile [InstallationDirectory]\README.DOC
  191.     EndIf
  192.   EndIf
  193.   SoLong
  194. EndProcedure
  195.  
  196.  
  197. Procedure SetupINSTALIT
  198.   ;;LetButton <F1> Do HelpProcedure
  199.   LetButton <F9> Do Terminate
  200.   Do SetColors
  201.   SetReplacementInquiry off
  202. EndProcedure
  203.  
  204. Procedure SetColors  
  205.   SetBackgroundCharTo B0
  206.   SetShadowAttrTo BlackOnBlack
  207.   SetScreenAttrTo WhiteOnBlue
  208.   SetTopLineAttrTo WhiteOnBrown
  209.   SetTopLineTo " INSTALLING DM/LIBRARIAN DEMO"
  210.   SetBottomLineAttrTo WhiteOnLightGray
  211.   SetBottomLineTo "  <CtrlX> - quit  "
  212.   SetExitMessageTo  DM/Librarian Demo Installation is Complete
  213. EndProcedure
  214.  
  215. Procedure Banner
  216.   Dialog WhiteOnCyan
  217.      "                                                    "                     
  218.      ".CDM/Librarian Demo Installation"
  219.      
  220.      ".CVersion 1.0"
  221.  
  222.   EndDialog
  223. EndProcedure
  224. ;;Procedure HelpProcedure
  225. ;;  Dialog BlackOnGreen
  226. ;;    This is a sample help procedure.  It could call other
  227. ;;    nested procedures.
  228. ;;  EndDialog
  229. ;;EndProcedure
  230.  
  231. Procedure Terminate
  232.     Do Cleanup
  233.     Solong   
  234. EndProcedure
  235.  
  236. Procedure Cleanup
  237.      DeleteFiles Quietly
  238.         dmlcfg.exe
  239.         install.exe
  240.         dmlib.inf
  241.      EndDeleteFiles
  242.      DeleteFiles from [InstallationDirectory]\config\english\help Quietly
  243.         dmlhelp.rsc
  244.      EndDeleteFiles
  245.      If [help] = NoCharacter
  246.         DeleteFiles from [mspath]\help\english Quietly
  247.            dmlhelp.rsc
  248.         EndDeleteFiles
  249.         DeleteFiles from [mspath] Quietly
  250.            dmlhelp.rsc
  251.         EndDeleteFiles
  252.      EndIf
  253. EndProcedure
  254.  
  255. EndScript
  256.  
  257.